home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / games.arc / CIRCLE2.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  640 b   |  25 lines
  1. 100  '*****************************************
  2. 110  '**        CONCENTRIC CIRCLES           **
  3. 120  '**                                     **
  4. 130  '**  DRAWS CIRCLES FROM CASSETTE BASIC  **
  5. 140  '*****************************************
  6. 150  '
  7. 160  CLS : SCREEN 2 : KEY OFF
  8. 170  FOR A = 0 TO 178 STEP 4
  9. 180  '
  10. 190  FOR X = -A TO A
  11. 200  Y = (A*A-X*X)^0.5 *0.5
  12. 210  PSET (319+X,100+Y)
  13. 220  PSET (319+X,100-Y)
  14. 230  NEXT X
  15. 240  '
  16. 250  FOR Y = -A\2 TO A\2
  17. 260  X = (A*A\4-Y*Y)^0.5 * 2
  18. 270  PSET (319+X,100+Y)
  19. 280  PSET (319-X,100+Y)
  20. 290  NEXT Y
  21. 300  '
  22. 310  NEXT A
  23. 320  '
  24. 330  A$ = INKEY$ : IF A$ = "" THEN 330
  25.